% The Computer Modern Italic family of fonts (by D. E. Knuth, 1979).
danger=mi/8;
input romitu;	% upper case (majuscules)
input itall;	% lower case (minuscules)
input itald;	% numerals, ampersand, and question mark
input romitp;	% punctuation symbols common to all roman and italic
if mi≠0:	% the following is the ``easy'' case, a math italic font
	input greekl;	% lower case Greek letters
	input italms;	% special symbols for math italic
	input itmext;	% nonstandard characters (codes \¬134, \¬136, \¬137)
	texinfo slant, 6pu, 3pu, 2pu, px, 18pu, 2pu;
else:	% the following is the ``hard'' case, a text italic font
	input romita;	% accents and other symbols common to roman and italic text
	if ligs≠0: input italig;	% letter ligatures (codes \¬173--\¬177)
		input itals;	% miscellaneous letter combinations
		input romitl;	% ligatures common with italic
		input ittext;	% nonstandard characters (codes \¬043, \¬044)
	else: input romits;	% substitutes for ligatures
	fi;
	if fixwidth=0: new k,kk,kkk;	% three degrees of kerning
		k=-.5pu; kk=-1.5pu; kkk=-2.5pu; uk=+pu;
		lig `d: `w: `l: `l kern uk;
		lig `F: `V:
			`A kern kkk, `o kern kk, `e kern kk,
			`a kern kk, `u kern kk, `r kern kk,
		    `K: `X:
			`O kern k, `C kern k, `G kern k, `Q kern k;
		lig `T: `y kern kk,
		    `Y: `o kern kk, `e kern kk,
			`a kern kk, `u kern kk, `r kern kk,
		    `P: `W: `A kern kk;
		lig `O: `A kern k, `W kern k, `Y kern k, `V kern k, `X kern k;
		if ucs≠0: lig `R: ;
		fi;
		lig `A: `t kern k, `b kern k, `h kern k, `k kern k, `l kern k,
			`m kern k, `n kern k, `r kern k, `v kern k, `w kern k,
			`L: `i kern k, `u kern k,
			`T kern kk, `O kern k, `U kern k, `C kern k,
			`W kern kk, `Y kern kk, `G kern k, `V kern kkk,
			`Q kern k,
			`b: `c: `e: `o: `p: `r:
			`a kern k, `c kern k, `d kern k, `e kern k, `g kern k,
			`o kern k, `q kern k;
		texinfo slant, 6pu, 3pu, 2pu, px, 18pu, 2pu;
	else: texinfo slant, 9pu, 0, 0, px, 9pu, 9pu;
	fi;
fi.